home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / graphics / fxforge / distortfx / uglypagecurl < prev    next >
Text File  |  1999-06-15  |  2KB  |  33 lines
  1. Category: Filter Factory Gallery Q
  2. Title: Page Turn...
  3. Copyright: Copyright © 1997 Mario Klingemann
  4. Author: Mario Klingemann
  5. Filename: ffq07gal.8bf
  6.  
  7. R:put(val(0,Y,X+Y),0),put(sin(val(1,-1024,1024)+scl(x+y,get(0)-Y,get(0),-512,512)),1),x+y>get(0)?scl(x+y,get(0),get(0)+val(2,0,Y),ctl(3),255):(x>get(0)-Y)&&(y>get(0)-X)?255-(255-mix(scl(get(1),-512,512,0,255),0,ctl(6),255))*(255-(mix(src(X-(y-(get(0)-X)+scl(get(1),-512,512,0,val(7,0,get(0)))),Y-(x-(get(0)-Y)+scl(get(1),-512,512,0,val(7,0,get(0)))),z),255,ctl(4),255)*scl(get(1),-512,512,ctl(5),255))/255)/255:c
  8.  
  9. G:x+y>get(0)?scl(x+y,get(0),get(0)+val(2,0,Y),ctl(3),255):(x>get(0)-Y)&&(y>get(0)-X)?255-(255-mix(scl(get(1),-512,512,0,255),0,ctl(6),255))*(255-(mix(src(X-(y-(get(0)-X)+scl(get(1),-512,512,0,val(7,0,get(0)))),Y-(x-(get(0)-Y)+scl(get(1),-512,512,0,val(7,0,get(0)))),z),255,ctl(4),255)*scl(get(1),-512,512,ctl(5),255))/255)/255:c
  10.  
  11. B:x+y>get(0)?scl(x+y,get(0),get(0)+val(2,0,Y),ctl(3),255):(x>get(0)-Y)&&(y>get(0)-X)?255-(255-mix(scl(get(1),-512,512,0,255),0,ctl(6),255))*(255-(mix(src(X-(y-(get(0)-X)+scl(get(1),-512,512,0,val(7,0,get(0)))),Y-(x-(get(0)-Y)+scl(get(1),-512,512,0,val(7,0,get(0)))),z),255,ctl(4),255)*scl(get(1),-512,512,ctl(5),255))/255)/255:c
  12.  
  13. A:a
  14.  
  15. ctl[0]: Edge Position
  16. ctl[1]: Lighting
  17. ctl[2]: Drop Shadow
  18. ctl[3]: Intensity
  19. ctl[4]: Backside
  20. ctl[5]: Shadow Strength
  21. ctl[6]: Highlight Strength
  22. ctl[7]: Distortion
  23.  
  24. val[0]: 96
  25. val[1]: 169
  26. val[2]: 87
  27. val[3]: 87
  28. val[4]: 120
  29. val[5]: 152
  30. val[6]: 31
  31. val[7]: 0
  32.  
  33.